約 2,105,446 件
https://w.atwiki.jp/ce00582/pages/1769.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(15 To 64, 1 To 49) As Single Dim mos(15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim mnew(1980 To 2100, 15 To 64) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim m2rate(0 To 200) As Single Dim mrate(0 To 200) As Single Dim v As Single Open "c /eli/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 Open "c /eli/data/男子遺族.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 age = a1 m2rate(age) = a2 mrate(age) = a3 Loop Close #6 For byear = 1990 To 2080 age = 15 mis(age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v) * mos(age - 1, car) Next Next For age = 15 To 64 z1 = 0 For car = 1 To 25 z1 = z1 + m2rate(age) * alpha(age) * mis(age, car) Next For car = 25 To 49 z1 = z1 + m2rate(age) * alpha(age) * (mis(age, car) + mos(age, car)) Next mnew(byear, age) = z1 Next Next Open "c /eli/gdata/男子遺族新規裁定者1.txt " For Output As #4 For byear = 1990 To 2080 For age = 15 To 64 Write #4, byear, age, mnew(byear, age) Next Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1505.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next fnew(byear) = z1 Next Open "c /nagoya/gdata/女子通算新規裁定者1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1593.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /eli/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next mnew(byear) = z2 / z1 Next Open "c /eli/gdata/男子通算平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/heavymetaleye101/pages/45.html
DARK TRANQUILLITY - THE GALLERY 北欧叙情デスメタルシーン最後の砦、96年発表の2ndアルバム。 デビューアルバムではアンダース・フリーデン（現INFLAMES）がヴォーカルを務めていたが脱退。ギタリストのミカエル・スタンネがヴォーカルにスウィッチ、そして新しいギタリストとしてフレデリック・ヨハンソンを加え製作された。 まさしくメロディックデスメタルとしては最上級の仕上がりになっており、時に北欧民謡を思わせるかのようなクラシカルともとれる哀しげな旋律がデスメタル・ブルータリティとの完全融合し、ドラマティックなメロディ展開が聴き手を涙させる、まさしくメロディックデスメタルのあるべき姿ともいえるような作品だ。①のPunish My HeavenはIN FLAMESのStand Ablazeと同様、メロディックデスメタルの名曲として君臨している。ただ、曲展開のドラマ性とデスメタル・ブルータリティの激烈性に関しては完全にPunish My Heavenに上だ（もちろんStand Ablazeもとても良い曲だが）。クラシカルな美旋律に乗る強烈なデスメタル・ビート、そして叙情的なメロディギターを配しながらスピードダウンさせドラマティックに展開する様はいつ聴いても涙ものである。そしてミカエルの激情振り撒く暴虐的なデスヴォイスも魅力である。ここまでDARK TRANQUILLITYの創り上げる曲の世界観にぴったり当てはまるヴォーカリストはいないのではないのだろうか。Punish My Heaven以外でももちろん、どの曲をとってもブルータルであり、ドラマティックであり、そしてメランコリックである。ミディアムテンポナンバーもとてつもなく叙情的だ。 メロディックデスメタルの最高峰はこの作品を聴けば判る筈だ。胸を掻き毟る悲劇の音、「メロディックデスメタル」。心を打たれるアートである。 PUNISH MY HEAVEN SILENCEAND THE FIRMAMENT WITHDREW EDENSPRING THE DIVIDIND LINE THE GALLERY THE ONE BROODING WARNING MIDWAY THROUGH INFINITY LETHE THE EMPTINESS FROM WHICH I FED MINE IS THE GRANDEUR... ...OF MELANCHOLY BURNING MY FRIEND OF MISERY(Metallica Cover){Bonus}
https://w.atwiki.jp/ddr_dp/pages/1465.html
Empathetic(楽) 曲名 アーティスト フォルダ 難易度 BPM NOTES/FREEZE その他 Empathetic Sota÷Des 2013 楽7 180 263 / 10 STREAM VOLTAGE AIR FREEZE CHAOS 44 37 5 21 1 楽譜面(7) / 踊譜面(11) / 激譜面(14) / 鬼譜面(-) 属性 リズム難 譜面 http //eba502.web.fc2.com/fumen/ddr/ddr2013/empathet_8b.html プレイ動画 https //www.youtube.com/watch?v=ydM4XiqDMyI (x2.0, NOTE) 解説 高ＢＰＭ楽譜面でありながら裏拍が多く、結構なリズム難。ＢＰＭ１８０なので判定そのものは甘く、これが詰めれるようになると結構な地力にも -- 名無しさん (2015-05-25 23 27 48) 名前 コメント コメント(私的なことや感想はこちら) 名前 コメント
https://w.atwiki.jp/ce00582/pages/1452.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnewt(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next fnewt(byear) = z1 Next Open "c /kirakira/gdata/女子通算新規裁定者1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, fnewt(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/211.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnewt(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnewt(byear) = z1 Next Open "c /stream/gdata/男子通算新規裁定者1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, mnewt(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1896.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /dig/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next fnew(byear) = z2 / z1 Next Open "c /dig/gdata/女子平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/2108.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /bs/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /bs/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnew(byear) = z1 Next Open "c /bs/gdata/男子新規裁定者1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/clickeridle/pages/77.html
URL https //veprogames.github.io/universe-shrinker/ 作成者 cook1eegames プラットフォーム HTML + JavaScript オフライン進行 無 宇宙を縮小する放置ゲーム。 ゲームの流れ Shrinkers Rho Upgrades Universe Layers Heat Death Autobuyer ガイド コメント ゲームの流れ Matter CondenserとUpgradeを購入して宇宙をプランク長まで縮小する。 Shrinkers Matter Condenserαからλまでの11種類ある。 Matter CondenserやUpgradeを購入するためのRho-Particles (ρp)を算出する能力（Production）と 宇宙を縮める能力（Shrink Power）がある。 Productionは加算式に対し、Shrink Powerは乗算式。 例えばShrink Powerが2なら宇宙は毎秒半分の直径に、10なら1桁縮み、1e100なら100桁縮むことになる。 ただし、Shrink Powerは宇宙が持つ「Resistance」に応じて減少する。 Rho Upgrades アップグレード名 コスト 上限 効果 Rho Boost 1000 なし All Generators produce more Rho-Particles Rho-Particlesの入手量が増加 Shrink Boost 10000 なし All Generators Shrink faster Shrink Powerが増加 Shrinking Expertise 1e7 なし All Generators are stronger based on how far you shrunk the Universe 現在の宇宙のshrink進行度に応じてRho-Particlesの入手量が増加 Rho Synergy 1e10 5 All Generators are stronger based on total Generator Levels Generatorレベルの総数に応じてRho-Particlesの入手量が増加 Shrink Boost 1e15 10 All Generators Shrink stronger based on total Generator Levels Generatorレベルの総数に応じてShrink Powerが増加 Universe Layers プランクスケールまで宇宙を縮小する事で手に入るshrunken universe(XXXverse)を使うことでアップグレードができる。 アップグレード名 コスト 上限 効果 Rho Fortifications 1.9^n なし All Generators produce more Rho-Particles Rho-Particlesの入手量が増加 Shrinking and Emsmalling 1.6^n なし All Generators shrink stronger Shrink Powerが増加 More Power, more Rho 2^(2+3n) なし All Generators more Rho-Particles based on total Verse shrunk そのXXXverseの累計shrink回数に応じてRho-Particlesの入手量が増加 Going small with Power 2^(4+5n) 10 All Generators shrink faster based on shrunk Verse you have right now 未使用のshrunken XXXverseの個数に応じてshrink powerが増加 宇宙 大きさ Resistance Rho Frotification Shrinking and Emsmalling Universe 8.848e10 Ly 1 2倍 +1.0乗 Multiverse 1e278 Ly 2 2.25倍 +1.4乗 Megaverse 1e1960 Ly 25 2.5倍 +1.8乗 Gigaverse 1e7419 Ly 10000 2.75倍 +1.8乗 Teraverse 1.543e34849 Ly 2e9 2.75倍 +1.8乗 Petaverse 3.118e102,329 Ly 3e13 2.75倍 +1.8乗 Exaverse 1.005e184,220 Ly 5e16 2.75倍 +1.8乗 Zettaverse 6.945e264,846 Ly 1e22 2.75倍 +1.8乗 Yottaverse 4.778e410,404 Ly 4e26 2.75倍 +1.8乗 Omniverse 1.057e999,984 Ly 1e31 2.75倍 +1.8乗 Heat Death Omniverseを1024回以上Shrinkする事で可能になる。 全てのUniverseをリセットすることでTheta Energyを得られる。 Theta Energyを使用してアップグレードを買う事ができる。 これらのアップグレードは買うたびに値上がりするほか、買っていないアップグレードも値上がりするので注意。（Respecは可能） アップグレード名 コスト 上限 効果 Rho Fortification Fortification 1 なし All Generators produce more Rho-Particles Rho-Particlesの入手量が増加 Shrinking the Shrinking 1 なし All Generators Shrink stronger Shrink Powerが増加 Unified Maxing 1 1 Max all affects all tabs (except Heat Death) instead of the current selected Max Allの効果が全てのタブに及ぶ More Heat, more Theta! 10^n なし Gain more Theta Energy on Heat Death Theta Energyの入手量増加 MultiMultiverse Upgrade なし Shrink multiple Verses at once Shrunken Verseの入手量が2^n倍になる Passive Shrinking 100 Shrink Universes lower than you have selected at a reduced rate 選択していないverseもshrinkするようになる Univerce Upgrade Power 1e7 なし All Shrinking Upgrades of Universe Layers are stronger Shrink Powerが増加するUniverse Upgradesが強化される Retain Layering 1e10 1 Keep your highest Universe reached (don't go back to Universe) Heat Death時にOmniverseまで開放された状態ではじまる Autobuyer Theta Energyを消費してShrinkers、Rho Upgrades、Universe Upgradesの購入を自動化できる。 ガイド 初Universeまで Productionは同じコストなら上位の物の方が強い。 Shrink Powerはαがやや強いが、効果はぜんぶ乗算されるのでαを優先的に購入する必要は特にない。 Omniverseまで Universe LayerのアップグレードはShrinkを優先。 同じコストならGoing small with Powerの方が効果が大きい。 Layerが進んでShrinking and Emsmallingを10倍程度まで買ったら下位のverseに戻ってアップグレードを買い足そう。 ShrinkersとRho Upgradesはさして重要ではないが、馬鹿にできない影響はあるので思い出したら買っておこう。 Heat Death後 やはりShrinkが重要。 MultiMultiverse Upgradeは他のアップグレードを買った時の値段上昇量が大きいので、RespecしてMultiMultiverse Upgrade→Shrinking the Shrinking→その他の順番で買いなおすと記録が伸びる場合がある コメント 買ってないアプグレのコストが増加って完全にRestackじゃんｗ (2022-06-30 22 49 51) 今Exaverseだけどあまりにも進まなさ過ぎてOmniverseまで進める気がしない・・・ (2022-07-11 15 17 11) コメント